home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Settings / Display Guides On⁄Off / Display Guides On_Off next >
Text File  |  1992-06-08  |  398b  |  26 lines
  1.  
  2. on Startup
  3. if displayGuides = True then  
  4. set displayGuides to false
  5. else 
  6. set displayGuides to True
  7. end if
  8. end Startup
  9.  
  10. on help
  11.  
  12. put  dialog (preload, 128) into thedialog
  13. put "---a\0" into item2
  14. put "---a\1" into item3
  15. put "---a\2" into item4
  16.  
  17.  
  18. repeat forever
  19. get dialog(display, thedialog)
  20. if (it = 1) then exit repeat
  21. end repeat
  22. get dialog(dispose, thedialog)
  23.  
  24. end help
  25.  
  26.     T<BÏ